home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / icont.sit / mkkeytext.icn < prev    next >
Encoding:
Text File  |  1992-09-19  |  503 b   |  26 lines  |  [TEXT/MPS ]
  1. #
  2. # mkkeytext.icn
  3. #
  4. # this program reads in standard input (normally keywords.r) and
  5. # generates a key_text.c file.
  6. #
  7. procedure main()
  8.   kywds := set()
  9.   while line := read() do {
  10.      line ? {
  11.     if ="keyword" then {
  12.        tab(find("}")+1)
  13.        tab(many(' \t'))
  14.        insert(kywds,tab(0))
  15.     }
  16.      }
  17.   }
  18.   write("#include \"../h/define.h\"")
  19.   write()
  20.   write("#ifdef Xver")
  21.   write("xver(key_text.1)")
  22.   write("#else\t\t\t\t\t/* Xver */")
  23.   every write(!sort(kywds))
  24.   write("#endif\t\t\t\t\t/* Xver */")
  25. end
  26.